Public Class ChoixTheme
    Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click


        CardsGen.glNumTheme = 1

        If rbtTheme1.Checked Then
            CardsGen.glNumTheme = 1
        End If

        If rbtTheme2.Checked Then
            CardsGen.glNumTheme = 2
        End If

Exit_cmdOK_Click:
        Me.Close()
        Exit Sub
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        rbtTheme2.Checked = True
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        rbtTheme1.Checked = True
    End Sub

    Private Sub ChoixTheme_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        KryptonPaletteChoixTheme.BasePaletteMode = CardsGen.KryptonPaletteCardsGen.BasePaletteMode
    End Sub
End Class
